unit SimulationData;

interface

	uses
	  SysUtils, Classes;

	type
		
		TSimData = Class(TObject)
		Private
			_time : real;
			_inclination : real;
			_angularVelocity : real;
			_error : real;
		Public
			Property Time : Real Read _time Write _time;
			Property Inclination : Real Read _inclination Write _inclination;
			Property AngularVelocity : Real Read _angularVelocity Write _angularVelocity;
			Property Error : Real Read _error Write _error;
			Constructor Create (Time, Inclination, AngularVelocity : Real); overload;
			Constructor Create; overload;
		end;
	
implementation
	//TSimData
	Constructor TSimData.Create (Time, Inclination, AngularVelocity : Real);
	begin
		_time := Time;
		_inclination := Inclination;
		_angularVelocity := AngularVelocity;
		_error := 0;
	end;
	
	Constructor TSimData.Create;
	begin
		_time := 0;
		_inclination := 0;
		_angularVelocity := 0;
		_error := 0;
	end;



end.
